VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Pila"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Dim Arreglo(200)
Dim Tope
Sub Iniciar()
    Tope = 0
End Sub
Function Vacia()
    Vacia = Tope = 0
End Function
Function Llena()
    Llena = Tope = 100
End Function
Sub meter(ele)
    If Not Llena Then
        Tope = Tope + 1
        Arreglo(Tope) = ele
    End If
End Sub

Function remover()
    e = Null
    If Not Vacia Then
        e = Arreglo(Tope)
        Tope = Tope - 1
    End If
    remover = e
End Function

